(ns dailyjob.file-op
  (:require [clojure.java.io :as io]
            [clojure.contrib.string :as string]))

(defn op-file [fpath op]
  (let [r (io/reader fpath)]
    (with-open [re r]
      (op re))))

(defmacro <> [fpath & body]
  `(with-open [~'r (io/reader ~fpath)]
     (doseq [~'l (line-seq ~'r)]
       (do ~@body))))